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% 

% TEMPLATE FOR ASSEMBLY CODING 
% 

% Implement temporal compression sola algorithm straight up 
% It simply processes frame by on a real time basis 
% 

% CALLS SOLA 0 

% 

clear 

pat^path/dAsolaXasm^sola^); 
x=hexreadib('scotttio\0); 

global y oldwin; 

global winlen winstep cc_range; 

global runindexl runindex2; 

global cc_valsl cc_vals2 

Nframes=13; 
compress=0; 

% convert time of window length to number of samples winlen 

if(compress) 

winstep=winlen; 

nwins=Nframes; 

cc_range=winlen/2; %conpression 
else 

winstep=winlen/2; 
nwins=2*Nframes; 

cc_range=winstep/2; %expansion (~winlen/4) 
end 

% compute total munber of windows in input vector 

% cc_range is used to set cross-correlation detection range 

oldwin=x(1:winlen); 
y=oldwin; 
runindexH; 
runindex2=winlen; 

for i=2:nwins 

begin=(i-1)*winstep+1; 

frame=x(begin; begin+wilen-1); 

y=sola(frame); 
end 
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% 

% 

% This is an implementation of the synchronized overlap and ad method (SOLA) 
% for time scale compression 



% SPECIFICALLY FOR USE AS A REAL TIME APP WHICH ACCEPTS 1 FRAME PER 

% X-should be one frame of speech only 

% Y-storage be one frame of speech only 

% cf-compression factor 

% 

% 

function [y]=sola(newwin) 
global y; 

global winlen winstep cc_range; 
global runindexl runindex2; 
global cc_val$1 cc_vals2 

% compute the cross-corelotion 
the_corr=xcorr(oldwin, newwin); 

[maxcc,indx]= max(the_corr(:ccj r ange)); 

runindex2=winlen+runindex1 -1; %always end of old frame 

runindex1=runindex2-indx+1; 
grad=[1indx]7(indx+1); 

% sola region 

y(runindex1:runindex2)=y(runindex1;runindex2).*flipud(grad)... 
+newwin(:indx).*grad; 

% append remainder of new frame 
:runindex1+winlen-1=newwin((indx+1);winlen); 

oldwin=y(runindex1:runindex]+winlen-1); F^^TCjT. JL9 
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